home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club (Business) 1997 July / Software of the Month Club - Business (Volume 239) (July 1997).iso / pc / code / d.dxr / 00011_drum Code.ls < prev    next >
Encoding:
Text File  |  1996-02-15  |  1.1 KB  |  28 lines
  1. global HARP, TIGO, HORN, DRUM, CHIME, BASS, sPALETTE, gObjects, gOBJECTSD, gWorld, gPuppetlines, sQTCharSprite, gNextEnvLetter, gMIDIPlayTRUE, gInitalized, noteObjs, windowsMIDIXObj, xNAVXOBJ, xCURXOBJ, gCPU, gFileSep, gRootPath, gHDpath, gXobjs, gXOBJPath, gCDpath, gCDName
  2.  
  3. on makeDrumChaotic
  4.   set Knob to getaProp(gObjects, #DrumtoChatioc)
  5.   playSound(getaProp(Knob, #sound), #cast)
  6.   repeat with Cas in getaProp(getaProp(Knob, #cast), #INIT)
  7.     set the castNum of sprite getaProp(Knob, #SpriteNum) to Cas
  8.     CursorandUpdate()
  9.   end repeat
  10.   ChangeSpecialState(#DRUM, #Chaotic)
  11.   eraseRecording(#DRUM)
  12.   set the loc of sprite getaProp(getaProp(gObjects, #DrumChaoticArea), #SpriteNum) to point(-2000, -2000)
  13.   updateStage()
  14. end
  15.  
  16. on PlayChaoticDrum RefNum
  17.   set OBj to getaProp(gObjects, RefNum)
  18.   set the loc of sprite getaProp(OBj, #SpriteNum) to getaProp(OBj, #loc)
  19.   PlayNoteFromHitMap(#DRUM)
  20.   set the loc of sprite getaProp(OBj, #SpriteNum) to point(-2000, -2000)
  21.   updateStage()
  22. end
  23.  
  24. on playDrum RefNum
  25.   set OBj to getaProp(gObjects, RefNum)
  26.   PlaytheNote(#DRUM)
  27. end
  28.